﻿Partial Class ExpenseApproveSelect_Grid
    Inherits Mysoft.Map.Application.Security.AppPage

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sFilter, sCustomerFilter As String
        If Not Request.QueryString("filter") Is Nothing Then
            sFilter = Request.QueryString("filter")
        End If
        appGrid.Filter = sFilter

        sCustomerFilter = "1=1"

        goToXML()

    End Sub

    '转向到正确的XML
    Private Sub goToXML()
        Dim myBizParamMNG As New Mysoft.PubProject.Business.BizParamMNG
        Dim strXml As String = Request.QueryString("xml")
        Dim strMnuXml As String = ""

        Dim IsForeignCurrency As String = myBizParamMNG.GetBizParamConfig("ys_IsForeignCurrency")

        '菜单xml指定一个文件，后续维护时只需要修改这一个xml文件就可以了
        strMnuXml = "/PubProject/workflow/qmys/ExpenseApproveSelect_Grid.xml"
        appGridMenu.Xml = strMnuXml

        If IsForeignCurrency = "1" Then
            strXml = "/PubProject/workflow/qmys/ExpenseApproveSelect_Grid_Bz.xml"

            '转到启用了币种的xml
            appGrid.Xml = strXml
        End If

    End Sub

End Class
